home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1994 November / 64er_Magazin_94-11_1994_Markt__Technik_de_Side_A.d64 / 24micro .set (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  47 lines
  1. 0 print"[147]":list999-
  2. 1 floppy=8:drucker=4:sec=1
  3. 10 print"[154]setup fuer pfox-treiber: 24micro.":print
  4. 20 print"soll der druckertreiber als":print"'p[146][154]rinter' oder 'pr-[146][154]24micro'"
  5. 30 input"gespeichert werden";n$:ifn$<>"-"andn$<>"p"thenrun
  6. 40 ifn$="p"then100
  7. 50 input"loesche alte version j/n";n$:ifn$="n"thenend
  8. 60 open15,floppy,15,"s:pr-24micro"
  9. 70 print"hoffentlich geloescht."
  10. 80 print#15,"c:pr-24micro=24micro":close15
  11. 90 open2,floppy,2,"pr-24micro,p,a":goto 120
  12. 100 open15,floppy,15,"c:printer=24micro":close15
  13. 110 open2,floppy,2,"printer,p,a"
  14. 120 print#2,chr$(drucker)chr$(sec);
  15. 130 readdp$:print#2,chr$(val(dp$));:dp$="":cn=7
  16. 140 read dc$:ifdc$="_"then170
  17. 150 dp$=dp$+chr$(val(dc$))
  18. 160 goto140
  19. 170 print#2,chr$(len(dp$))dp$;:cn=cn-1
  20. 180 dp$="":ifcnthen140
  21. 190 close2:print"fertig."
  22. 999 rem     640/180 zoll                relative bewegung? 0=nein , 1=ja
  23. 1000 data 1
  24. 1099 rem      8/180 zoll                zeilenabstand!;druckrichtung,cr+lf ...
  25. 1100 data27,101,86,0,1,6,27,85,49,_
  26. 1199 rem                                grafikmodus 1/180 zoll;640 spalten
  27. 1200 data27,42,39,128,2,_
  28. 1299 rem                                zeilenvorschub
  29. 1300 data13,_
  30. 1399 rem                                tabulieren oder beliebige spaces
  31. 1400 data27,36,100,0,_
  32. 1499 rem                                code um papier 400/180 zoll vorbewegen
  33. 1500 data27,101,106,8,0,0,_
  34. 1599 rem                                code um papier 400/180 zoll rueckbew.
  35. 1600 data27,101,74,8,0,0,_
  36. 1699 rem    640/180 zoll                code relative bewegung nach rechts
  37. 1700 data27,101,82,43,6,4,0
  38. 1710 data27,101,82,43,6,4,0 ,_
  39. 2000 rem 24-nadeltreiber fuer printfox
  40. 2100 rem sourcecode erhaeltlich bei:
  41. 2200 rem     olaf hering
  42. 2300 rem     marienstr.2
  43. 2400 rem     72461 albstadt
  44. 2500 rem disk + 10 dm inkl. porto
  45. 2600 rem
  46. 2700 rem start mit: run 1
  47.